home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 26 / Cream of the Crop 26.iso / business / cntws11a.zip / SALEPR1.MDX (.txt) < prev    next >
dBASE Multiple Index  |  1997-05-19  |  8KB  |  81 lines
  1. SALEPR1
  2. ITEM1
  3. *-----------------------------------------------------------------
  4. *    do wip_rept
  5. saf = set('safety')
  6. set safety off
  7. sele jobs
  8. set order to job_code
  9. sele creditor
  10. set order to sub_code
  11. sele stmaster
  12. set order to stock_code
  13. copy with production to tempstck field stock_code,descriptio
  14. use tempstck in sele() order stock_code
  15. sele saleprod
  16. set order to prod_code
  17. use jctrans in sele() order job_trans
  18. sele jctrans
  19. set relation to sub_code in
  20. PROD_CODE
  21. ACT_CODE
  22. STOCK_CODE
  23. de into tempstck
  24. froom = ""
  25. toooo = ""
  26. do wiprange
  27. sele jctrans
  28. set filter to jctrans->job_code => froom .and. ;
  29.     jctrans->job_code =< toooo
  30. reference = "REFERENCE"
  31. dateword = "DATE"
  32. do prtbtch with "[ Detailed Work In Progress Schedule ]","wip"
  33. *report form wip_sum &&to print noeject
  34. use in jctrans
  35. use in tempstck
  36. erase "tempstck.dbf"
  37. erase "tempstck.mdx"
  38. set safety &saf.
  39. RETURN    
  40. PROCEDURE sum_wip     && DBMITEM2.ONCLICK
  41. *-----------------------------------------------------------------
  42. * NAME
  43. *   ONCLICK - Event handler for DBMITEM2
  44. *-----------------------------------------------------------------
  45. *    do wip_reps
  46. saf = set('safety')
  47. set safety off
  48. sele jobs
  49. set order to job_code
  50. sele creditor
  51. set order to sub_code
  52. sele stmaster
  53. set order to stock_code
  54. copy with production to tempstck field stock_code,descriptio
  55. use tempstck in sele() order stock_code
  56. sele saleprod
  57. set order to prod_code
  58. use jctrans in sele() order job_trans
  59. sele jctrans
  60. set relation to sub_code into creditor,;
  61.     stock_code into stmaster,;
  62.     job_code into jobs,;
  63.     prod_code into saleprod
  64. sele jobs
  65. set relation to stock_code into tempstck
  66. froom = ""
  67. toooo = ""
  68. do wiprange
  69. sele jctrans
  70. set filter to jctrans->job_code => froom .and. ;
  71.     jctrans->job_code =< toooo
  72. reference = "REFERENCE"
  73. dateword = "DATE"
  74. do prtbtch with "[ Summary Work In Progress Schedule ]","w
  75. PROD_CODE
  76. PROD_CODE
  77. ACT_CODE
  78. ACT_CODE
  79. STOCK_CODE
  80. STOCK_CODE
  81.